Hot Shareware 37/hot37.iso/FICHEROS/WEDU/MICSCOP3.ZIP/MENUSYS.CST/00041_Script_Do Commands

Text File | 1998-05-18 | 4KB | 185 lines

global printtest, teacher, studentName, coursecode, ACommand
global LastFrame
global TestNumber

on DoLesson LessonNumber
  -- Can't use play here because I will not know which movie to play
  -- and i don't want to return to this movie
  go to movie "Lesson" & string (LessonNumber)
end DoLesson

on DoContent ContentNumber
  ResetSprites
  case ContentNumber of
    1: Content1
    2: Content2
    3: Content3
    4: Content4
    5: Content5
  end case
end

on Content1
  ReSetSprites
  go to frame "C1"
  updatestage
  SetUpC1        -- script in each Lesson
end
on Content2
  ReSetSprites
  go to frame "C2"
  updatestage
  SetUpC2        -- script in each Lesson
end
on Content3
  ReSetSprites
  go to frame "C3"
  updatestage
  SetUpC3        -- script in each Lesson
end
on Content4
  ReSetSprites
  go to frame "C4"
  updatestage
  SetUpC4        -- script in each Lesson
end
on Content5
  ReSetSprites
  go to frame "C5"
  updatestage
  SetUpC5        -- script in each Lesson
end

on CancelTest
  CloseTestDialogWindow
  ResetSprites
  --  ShowNextButton
  global LastFrame
  if voidp (LastFrame) then
    set LastFrame to 1
  end if
  -- some tests are puppeting and controling next and back buttons
  -- so set them back up as non puppets
  ResetNavigationButtons
  if voidP (LastFrame) then
    set LastFrame to "C1"
  end if
  go to LastFrame
  continue
end

on HideNextThreeButton
  VisibleSprites [34], false
  CursorSprites [34], 0
end

on ShowNextThreeButton
  VisibleSprites [34], true
  CursorSprites [34], [the number of member "PH", the number of member "PH_Mask"]
end

on Test1
  ResetSprites
  go to frame "T1"
  SetUpT1
end
on Test2
  ResetSprites
  go to frame "T2"
  SetUpT2
end
on Test3
  ResetSprites
  go to frame "T3"
end
on Test4
  ResetSprites
  go to frame "T4"
  SetUpT4
end

on ShowInstructions
  OpenInstructionWindow
  global DialogWindow
end ShowInstructions

on OpenInstructionWindow
  global DialogWindow
  if objectP (DialogWindow) then
    forget DialogWindow
  end if

  set horzOrigin to the stageleft + 160
  set vertOrigin to the stagetop + 120
  set DialogWindowRect to rect (horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin+ 240)
  set DialogWindow to window "Help"
  set the rect of DialogWindow to DialogWindowRect
  set the fileName of DialogWindow to "Help.dir"
  set the titleVisible of DialogWindow to false
  set the modal of DialogWindow to true       -- only respond to window
  open DialogWindow
end

on CloseInstructions
  CloseTestDialogWindow
end CloseInstructions

on AskTest MessageString, Title
  set printtest to false
  OpenTestDialogWindow
  global DialogWindow
  tell DialogWindow
    set the text of member "Test Title field" to Title
    set the text of member "Message Text" to MessageString
  end tell
end

on OpenTestDialogWindow
  global DialogWindow
  OpenDialogWindow
  --  set the visible of sprite 48 to true
  open DialogWindow
end OpenTestDialogWindow

on OpenDialogWindow
  global DialogWindow
  if objectP (DialogWindow) then
    forget DialogWindow
  end if
  set horzOrigin to the stageleft + 160
  set vertOrigin to the stagetop + 120
  set DialogWindowRect to rect (horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin+ 240)
  set DialogWindow to window "TestDial"
  set the rect of DialogWindow to DialogWindowRect
  set the fileName of DialogWindow to "TestDial.dir"
  set the titleVisible of DialogWindow to false
  set the modal of DialogWindow to true       -- only respond to window
end

on CloseTestDialogWindow
  --  set the visible of sprite 48 to false
  updatestage
  global DialogWindow
  --  set the modal of DialogWindow to false
  close DialogWindow
--  forget DialogWindow

end CloseDialogWindow


on CheckAnswersButton State  --????
  -- this will be called by the score
  -- the check answers button will always be in sprite 34
  global AnswersButton
  set AnswersButton to State
  case AnswersButton of
    true:
      VisibleSprites [34], true
      CursorSprites [34],[the number of member "PH"],[the number of member "PH_Mask"]
    false:
      VisibleSprites [34], false
      CursorSprites [34],0
  end case
end